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SECTION  1 


INTRODUCTION 


GETTING  STARTED 

This  manual  describes  how  to  use  a  set  of  utility  routines 
(referred  to  as  HPLOT)  written  in  FORTRAN  '77  which  were  developed 
for  the  HP7221T  plotter  using  a  PDPll/24  with  an  RSX11M  operating 
system. 

The  Hewlett-Packard  7221C  and  7221T  Graphics  Plotter 
Operating  and  Programming  Manual,  herein  referred  to  as  the  HP 
manual,  should  be  referenced  for  additional  plotter  capabilities 
not  accessed  by  these  routines,  discussions  of  the  command  language 
required  to  drive  the  7221T,  and  other  techniques  for  the  physical 
operation  of  the  plotter. 

FORTRAN  routines  are  included  which  will  satisfy  the  most 
typical  program  requirements.  To  add  routines  to  the  HPLOT 
library,  follow  the  procedures  discussed  in  section  4. 

To  include  this  library  in  a  program,  simply  include  the 
object  file  in  the  task  build  process. 
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UNDERSTANDING  GRAPHIC  LIMITS  AND  GRID  SIZE 


Machine  Units 

Graphic  limits  define  the  desired  limits  of  the  plotting  area  on 
the  platen  and  are  specified  in  machine  units.  A  machine  unit  i6 
.025  mm  (approximately  0.001  inch)  in  length,  and  is  the  smallest 
move  the  plotter  '•an  make.  The  largest  possible  plotting  area  is 
16000  machine  units  wide  (400  mm)  in  the  x-axi6  direction  by  11400 
machine  units  high  (285  mm)  in  the  y-axis  direction.  These 
dimensions  are  the  electro-mechanical  limits  of  the  plotter  and  are 
shown  in  figure  1-1. 

Default  Values  For  Graphic  Limits 

The  plotter  assumes  the  following  default  graphic  limits  and 
advance  lengths  when  roll  paper  is  loaded  (paper  advance  option  is 
"on")  and  the  ENGLISH/METRIC  switch  at  the  rear  of  the  plotter  is 
set  to  ENGLISH. 

Lower  Left  x,y  ■  520,1020  machine  units 
Upper  Right  x,y  -  15760,11180  machine  units 

Half-page  length  -  8.5  inches 
Full-page  length  *>  17  inches 

User-Def ined  Graphic  Limits 

A  user  may  set  his  own  graphic  limits  using  the  front-panel 
controls  or  by  program  control.  (Front  panel  controls  are 
discussed  in  the  HP  manual.)  A  new  set  of  graphic  limits 
permanently  replaces  any  previously  established  limits. 

Plotter  Units 

Grid  size  establishes  full-scale  plotter  units,  which  are  the 
number  of  units  between  the  point  of  origin  of  a  plot  (0,0)  and  the 
full  scale  values  (Xmax.Ymax)  of  the  x-  and  y-axes.  As  an  example, 
a  grid  size  of  5  x  7  has  5  plotter  units  in  the  x-axi6  and  7 
plotter  units  in  the  y-axis.  This  is  shown  in  figure  1-2.  The 
plotter  units  establish  resolution  of  a  plot,  and  affect  the  number 
of  data  bytes  required  to  generate  a  plot.  Numerical  limits  of 
16,383  plotter  units  can  be  handled  in  either  axis;  however,  the 
maximum  plotter  resolution  is  .025  mm  even  when  finer  resolution  is 
specified  by  a  user. 
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PLOTTER  UNIT  SYSTEM 


Figure  1-2.  Setting  a  Grid  Within  Default  Graphic  Limits 


Default  Grid  Size  Values 

If  a  grid  size  value  is  not  specified  in  a  plotting  instruction, 
the  plotter  sets  the  following  default  grid  size: 

X-Axis  =  3040  plotter  units 
Y-Axis  =  2000  plotter  units 

When  neither  graphic  limits  nor  grid  size  are  explicitly  specified 
in  a  plotter  instruction,  the  3040  x  2000  grid  is  mapped  onto  the 
previously  discussed  default  graphic  limits. 

Square  Grid  Systems 

The  user  sets  the  grid  size  by  program  control.  A  square  grid 
system  is  defined  when  the  physical  distance  on  the  plot  surface 
corresponding  to  a  single  plotter  unit  is  the  same  in  both  the  x 
and  y  directions.  For  this  condition  to  exist,  the  aspect  ratio  of 
the  box  established  by  the  current  graphic  limits  must  equal  the 
ratio  of  the  grid's  full  scale  x-value  to  full  scale  y-value.  Thi6 
may  be  stated  as  follows: 

Let 


=  number 

of 

machine 

units 

in 

X 

direction 

Ym  =  number 

of 

machine 

units 

in 

y 

direction 

Xp  =  number 

of 

plotter 

units 

in 

X 

direction 

Yp  =  number 

of 

plotter 

units 

in 

y 

direction 

Then 

_Xm  *p 
Ym  Yp 

Instructions  that  include  angle  parameters  will  produce  true  angles 
only  if  a  square  grid  exists.  If  a  non-square  grid  exists,  arcs 
will  appear  elliptical. 

The  following  example  (See  figure  1-3)  illustrates  a  grid  of  5  x  7 
established  within  graphic  limits  with  the  same  aspect  ratio  (lower 
left  -  520,1020  machine  units  and  upper  right  *  5520,8020  machine 
units) . 


<  =  > 


square  grid 
system 
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Default  Grid  Size  Values 


If  a  grid  size  value  is  not  specified  in  a  plotting  instruction, 
the  plotter  6ets  the  following  default  grid  size: 


X-Axis  =  3040  plotter  units 
Y-Axis  =  2000  plotter  units 

When  neither  graphic  limits  nor  grid  size  are  explicitly  specified 
in  a  plotter  instruction,  the  3040  x  2000  grid  is  mapped  onto  the 
previously  discussed  default  graphic  limits. 

Square  Grid  Systems 


The  user  sets  the  grid  size  by  program  control.  A  square  grid 
system  is  defined  when  the  physical  distance  on  the  plot  surface 
corresponding  to  a  single  plotter  unit  is  the  same  in  both  the  x 
and  y  directions.  For  this  condition  to  exist,  the  aspect  ratio  of 
the  box  established  by  the  current  graphic  limits  must  equal  the 
ratio  of  the  grid's  full  scale  x-value  to  full  scale  y-value.  Thi6 
may  be  stated  as  follows: 


Let 


Xjj,  =  number 

of 

machine 

units 

in 

X 

direction 

Y,,,  =  number 

of 

machine 

units 

in 

y 

direction 

Xp  =  number 

of 

plotter 

units 

in 

X 

direction 

Yp  =  number 

of 

plotter 

units 

in 

y 

direction 

Then 

"*m  V 

"  Yp 


<  =  > 


square  grid 
system 


Instructions  that  include  angle  parameters  will  produce  true  angles 
only  if  a  square  grid  exists.  If  a  non-square  grid  exists,  arcs 
will  appear  elliptical. 

The  following  example  (See  figure  1-3)  illustrates  a  grid  of  5  x  7 
established  within  graphic  limits  with  the  same  aspect  ratio  (lower 
left  =  520,1020  machine  units  and  upper  right  *  5520,8020  machine 
units) . 


PLOTTER  UNIT  SYSTEM 


Figure  1-3.  Setting  a  Square  Grid 
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Unit  Relationships  and  Conversions 


To  determine  the  number  of  machine  units  in  a  plotter  unit: 

Length  of  1  machine  unit  *  .025  mm  (  .001  inches) 

When  the  default  conditions  are  used, 

X  machine  units  15760  -  520  15240 

- =  -  -  -  -  5.01K5 

Y  plotter  units  3040  3040 

X  machine  units  11180  -  1020  10160 

-  =  - * - «  5. 08  a  5 

Y  plotter  units  2000  2000 

Thus,  the  default  size  of  one  plotter  unit  in  millimeters  is: 

(number  of  machine  units  per  plotter  unit)  x  (length  of  1  machine 
unit)  =• 

5  x  0.025  mm  =  0.125  mm 


Note  that  the  default  resolution  is  one-fifth  the  maximum  attainable 
resolution.  However,  integer  coordinates  with  the  default  grid  are 
so  close  together  (0.125  mm)  that  pen  movement  between  adjacent 
coordinates  is  not  discernible. 

The  following  conversions  are  useful: 

1  machine  unit  B  .025  mm 

5  machine  units  *  .125  mm 

1  inch  “  25.4  mm 

1  inch  *  1016  machine  units 
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SECTION  2 


HPLOT  SOUTINES 


LIST  OF  ROUTINES  BY  FUNCTION 

Initialize  &  Terminate  Plot 

PLOTS  -  initialize  plotter 

PLOTD  -  terminate  plotter 

GRIDSZ  -  set  grid  plotter  units 
ADVANC  -  advance  paper 

Color 

SELPEN  -  select  pen 

Pen  Position 

MOVE  -  move  pen 

DRAW  -  draw  vector 

IMOVE  -  move  and  then  draw  incrementally 

IDRAW  -  draw  incrementally 

Circles  and  Arcs 

CIRCLE  -  draw  arc  or  cirle 

Line  Type 

DASHL  -  draw  dashed  line 

Labelling 

LABEL  -  plot  character  label 
NUMBER  -  plot  integer  value 
FNMBER  -  plot  floating  point  value 
LABSLT  -  character  slant 

LABEND  -  alter  terminating  character  of  labels 

FONT  -  change  font 

LABSIZ  -  change  size  of  characters 

Rotation 

ROTATE  -  rotate  incremental  vectors 
ALPHABETICAL  LISTING  OF  ROUTINES 


ADVANC ( IADV ) 


Plot  paper  is  advanced  and/or  cut  according  to  the  value  of  IADV. 


Argument  Format 

IADV  Integer 

f [0,4] 


Description 


0  -  Cutter  disabled,  no  page 
advance 

1  “  Cutter  disabled,  full 

page  advance 

2  “  Cutter  disabled,  half 

page  advance 

3  -  Cutter  enabled,  full  page 

advance 

4  -  Cutter  enabled,  half  page 

advance 


CIRCLE( IRAD.ANGLEl .ANGLE2) 

Draw  a  circle  or  an  arc  starting  from  the  current  pen  position. 


Argument 
I  RAD 
ANGLE1 

ANGLE2 


Notes:  (1) 

(2) 
(3) 


Format 


Integer*4 

Real 


Real 


Description 

Radius  in  plotter  units. 

Angle  in  degrees  at  which  to 
begin  drawing  circle  or  arc. 

Angle  in  degrees  at  which  to 
terminate  drawing  circle  or 
arc.  (See  Note  2.) 


An  angle  of  0°  corresponds  to  the  +x  axis  direction. 

If  ANGLE1=ANGLE2 ,  a  circle  will  be  drawn. 

If  ANGLE1 <ANGLE2 ,  the  arc  will  be  plotted  in  a 
counterclockwise  direction;  if  ANGLEl >ANGLE2 ,  the  arc 
will  be  plotted  in  a  clockwise  direction. 
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DASHL( IDASH , NELE , LPATRN , IFIX) 


SeC  line  mode  to  draw  dashed  lines  using  the  pattern  determined  by 
the  IDASH  matrix  and  the  length,  LPATRN.  If  a  "best  fit"  of  the 
pattern  is  desired,  set  IFIX  to  indicate  variable  dashed  lines. 


Argument  Format  Description 

IDASH  Integer 

Array 


NELE 


Integer 


LPATRN 


Integer 


IFIX 


-1 

*=2 


Two-dimensional  array 
containing  the 
dash/space  pattern  in 
relative  units. 

IDASH  (J,l)  contains  the 
relative  length;  IDASH  (J,2) 
contains  a  1  if  the  jth 
element  i6  a  dash,  a  2  if  the 
jth  element  is  a  space. 

Number  of  elements  forming 
the  pattern  (See  Notes  2  and 
3.) 


Length  in  plotter  units  of 
the  complete  pattern.  If 
LPATRN<0,  so lid  line  mode  i6 
restored.  (See  note  4.) 

If  fixed  dash  line 
If  variable  dash  line 


Notes : 


(1)  A  dash  with  length  -0  is  a  dot  in  the  pattern. 

(2)  IDASH  should  be  dimensioned  NELE  x  2  in  the 
callingprogram. 

(3)  A  maximum  of  8  dashes  and  8  spaces  are  allowed  to  form 
a  pattern. 

(4)  Dash  mode  is  in  effect  until  a  return  is  explicitly 
made  to  solid  line  mode. 

(5)  In  array  order,  all  pattern  lengths  are  followed  by  all 
corresponding  element  types. 
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DRAW(IX.IY) 


r 


Draw  a  vector  from  the  current  position  with  the  pen  down  to  the 
point  with  absolute  coordinates  (IX, IY). 


Argument  Format 

IX, IY  Integer 


Description 

x,y  coordinates  of  endpoint 
in  plotter  unit6. 


FNMBER ( IX , IY , FNUM , ISW.NDEC) 

Plot  a  floating  point  value  in  F  format 


Argument 
IX,  IY 

FNUM 

ISW 

NDEC 


Format 

Integer 

Real 

Integer 

Integer 


Decrintion 

x,y  coordinates  to  move  pen 
to  prior  to  plotting  number 
(absolute  or  incremental, 
depending  on  ISW) . 

Value  of  number  to  be 
plotted.  (See  note  1.) 

0  *=>  absolute  pen  move  prior 
to  plot. 

*0  *»>  incremental  pen  move 
prior  to  plot 

Number  of  positions  beyond 
decimal  point  to  be  plotted, 
where  0<NDEC<4. 


NOTES:  (1)  This  routine  is  currently  limited  to  values  <  10-^  or 
>  3.2  x  105. 
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FONT ( I STD , 1ALT , I SEL ) 


Choose  a  standard  and  alternate  font  from  the  six  available  fonts 
(see  ref(l)),  and  select  the  font  which  is  to  be  currently  in  use. 


Argument 

Format 

Description 

ISTD 

Integer 

Standard  font 

f [0,5] 

1ALT 

Integer 

Alternate  font 

« [0,5] 

ISTD 

=1 

To  select  standard  font 

=2 

To  select  alternate  font 

Notes:  (1)  <PLOTS>  sets  the  standard  font  to  0  and  the  alternate 
font  to  5. 

(2)  Font  #5  includes  a  set  of  graphic  symbols  which  are 

centered.  These  are  very  convenient  for  graphs  in  which 
points  are  to  be  denoted  by  symbols.  These  symbols  have 
decimal  codes  65  through  79.  They  are  drawn  starting 
from  the  center  and  the  current  pen  location  will  not  be 
altered . 
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GRIDSZ ( IXMAX , IYMAX) 


Divide  the  plotting  grid  into  plotter  units.  The  minimum  plot 
increment  is  determined  by  the  relationship  between  the  graphic 
limits  specified  in  <PLOTS>  and  IXMAX, IYMAX. 

Argument  Format  Description 

IXMAX, IYMAX  Integer  x,y  coordinates  of  upper 

right  corner  of  grid  in 
plotter  units 


Notes:  (1)  The  GRIDSZ  routine  indicates  the  number  of  grid 

divisions  into  which  the  paper  size,  as  determined  in 
PLOTS,  is  divided.  It  may  be  compared  to  laying  a  grid 
template  over  the  usable  portion  of  paper.  The  GRIDSZ 
divisions  determine  the  minimum  vector  size  for  the 
plot.  Thus,  the  number  of  divisions  provides  the 
resolution  of  the  vectors. 

(2)  A  combination  of  graphic  limits  and  grid  size  which 
does  not  result  in  the  same  physical  unit  size  on  both 
axes  will  result  in  the  drawing  of  an  ellipse  when  a 
circle  is  desired,  and  vectors  and  characters  with 
altered  proportions. 

(3)  The  default  grid  size  is  3040  x  2000  plotter  units. 

(4)  Approximately  200  machine  units  (.023mm)  per  inch  can 
be  distinguished  by  the  eye. 

ex:  CALL  GRIDSZ (100, 100)  divides  the  plot  area  determined  in 

PLOTS  into  100  plotter  units  in  each  direction. 
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I DRAW ( I DELX , I DELY , N ) 


Draw  incrementally  from  the  current  pen  postion  for  N  increments, 
with  the  pen  down. 


Argument 


Format 


Description 


IDELX 


Integer  Relative  move  in  plotter 

units  in  the 

Array  x-direction  for  each  vector 

to  be  drawn. 


I  DELY 


Integer  Relative  move  in  plotter 

units  in  the 

Array  y-direction  for  each  vector 

to  be  drawn. 


N 


Integer 


Number  of  vectors  to  be 
drawn. 


ex:  DIMENSION  IDX(A) ,  IDY(4) 
CALL  IDRAW  (IDX,IDY,4) 


where  IDX  =  {10,0,-10,0} 
and  IDY  -  {0,10,0,-10} 


will  draw  a  square 


10  plotter  units  long. 
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IMOVE ( I DELX , I DELY , N ) 


Move  relative  to  the  current  pen  position  to  the  first  pair  of 
incremental  values  given  and  then  draw  incrementally  the  remaining 
N-l  pairs.  (See  <IDRAW>). 


ArKument 

Format 

Description 

I  DELX 

Integer 

Relative  move  in  plotter 
units  in  the 

Array 

x-direction  for  each  vector 
to  be  drawn. 

IDELY 

Integer 

Relative  move  in  plotter 
units  in  the 

Array 

y-direction  for  each  vector 
to  be  drawn. 

N 

Integer 

Number  of  vectors  to  be 
drawn. 

! 
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LABEL ( STRING, N) 

Plot  a  string  of  characters  at  the  current  angle  of  rotation. 


Argument 

Format 

DescriDtion 

STRING 

Byte  Array 

Array  containing  string 
ASCII  characters 

of 

N 

Integer 

Number  of  characters  to 
(See  note  1.) 

plot . 

Notes:  (1)  If  the  contents  of  the  string  include  the  current  label 
terminator  character,  the  remaining  characters  in  the 
string  will  not  be  plotted.  See  <LABEND>  for  discussion 
of  terminators. 

(2)  After  the  call,  the  pen  will  be  left  in  the  appropriate 
position  to  plot  another  character. 


ex:  CALL  LABEL  ('ABC', 3) 


LABEND(LTERM) 


Change  the  string  terminator  character  for  labels. 


Argument 


Format 


Description 


LTERM 


Integer  Decimal  value  representing 

ASCII  character  of  desired 
string  terminator. 


Notes:  (1)  The  ETX  (03)  character  is  the  default  terminator. 

(2)  Choose  a  non-printing  terminator  character  (01-37)  to 
avoid  visible  print  of  the  character  at  the  end  of  the 
label . 

(3)  The  NUL  (00),  ENQ  (05),  ESC  (33),  and  DEL  (127)  are  not 
allowed  as  terminators. 


ex:  CALL  LABEND  (13) 

will  change  string  terminator  to  a  carriage  return  character. 
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LABSIZ ( IHOR , IVERT ) 


Change  the  label  size  from  current  value  to  IHOR  units  horizontal 
size  and  IVERT  units  vertical  size. 


Argument 

Format 

Description 

IHOR 

Integer 

Horizontal  character  size 
(including  spacing)  in 
plotter  units.  (See  note  2.) 

IVERT 

Integer 

Vertical  character  Bize  in 
plotter  units. 

Notes:  (1)  The  default  values  are  IHOR=25,  IVERT«=25. 

(2)  The  spacing  automatically  included  with  IHOR  is 
calculated  such  that  the  actual  character  fills  up 
(2/3)  *IHOR. 

(3)  If  the  grid  Is  not  in  equidistant  plotter  units  in  both  x  and  y 
directions,  characters  will  be  plotted  in  a  proportional  manner 
to  grid  units. 
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LABSLT( SLANT) 


Determine  the  slant  angle  to  be  used  for  printing  labels. 


Argument  Format  Description 

SLANT  Real  Slant  angle  in  degrees 

e[0,180] . 


Notes:  (1)  The  default  slant  angle  is  90°.  It  is  measured  in  a 
counterclockwise  direction  from  the  +x  axis. 

(2)  The  slant  angle  remains  in  effect  until  explicitly 
changed . 
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MOVE(IX.IY) 

Move  with  the  pen  up  to  the  point  with  absolute  coordinates  (IX,IY). 

Format  Description 

Integer  x,y  position  of  vector 

endpoint  in  plotter  units. 
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NUMBER ( IX , IY , NUM , INC ) 


Move  the  pen  to  (IX, IY)  and  print  the  integer  NUM.  If  INC#0,  move 
the  pen  incrementally  by  (IX, IY)  from  the  current  position. 
Otherwise  move  absolutely  to  (IX, IY). 


Argument 

Format 

Description 

IX,  IY 

Integer 

(x,y)  coordinates  (absolute 
if  INC«0;  incremental  if 
INC#0)  of  lower  left  plotting 
position  of  first  digit  in 
the  number. 

NUM 

Integer 

Integer  in  the  range 
[-32767, +32767] 

INC 

=0 

To  move  absolutely  to  (IX, IY) 

/o 

To  move  incrementally  by 
(IX, IY) 
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PLOTD(IADV) 


Current  plot  is  complete.  Plot  paper  is  advanced  and/or  cut  as 
indicated  by  the  value  of  1ADV.  Pen  i6  returned  to  holder,  and 
plotter  is  disengaged. 


Argument 

IADV 


page  advance 

2  =  Cutter  disabled,  half 

page  advance 

3  =  Cutter  enabled,  full  page 

advance 

4  *  Cutter  enabled,  half  page 

advance 


Format 


Descript  ion 


Integer 
t  [0,5] 


0  =  Cutter  disabled,  no  page 
advance 

1  =  Cutter  disabled,  full 


PLOTS( LUN , IERR , LOWX , LOWY , IUPX , IUPY) 


Enable  the  plotter,  determine  graphic  limits,  initialize  the  plotter 
conditions  for  the  next  plot,  and  determine  the  I/O  logical  devices. 
This  routine  should  be  called  before  any  other  plotter  routine. 


Argument 


Format 


Description 


LUN 

Integer 

Logical  unit  number  for 
output  to  plotter. 

IERR 

Integer 

Logical  unit  number  for  error 
and  plot  command  code  prints. 
If  IERR  =  0,  no  commands  or 
error  message  printouts  will 
occur.  (See  note  2.) 

LOWX, 

Integer 

x  and  y  coordinates  of  lower 

LOWY, 

left  and  upper  right  graphic 

IUPX, 

limits,  respectively,  in 

IUPY 

machine  unit 6.  (See  note  1.) 
If  LOWX<0  the  default  machine 
units  will  be  used. 

Notes:  (1)  Graphic  limits  determine  usable  paper  size.  Machine 
units  (.025mm)  are  required  as  the  limit  arguments. 
See  section  I.B.  for  choosing  suitable  values  for  the 
coordinates . 

(2)  All  error  messages  and  ASCII  codes  from  HPLOT  will 
appear  in  the  file  determined  by  IERR.  It  is 
recommended  that  IERR>0  while  testing  and  IERR*=0  for 
production  runs. 

ex:  A  paper  size  approximately  10"xl0''  may  be  established  by 

the  call: 

CALL  PLOTS  (4,1,500,500,10660,10660) 

Note  that  logical  unit  4  will  be  assigned  to  the  plotter, 
and  logical  unit  1  to  print  plot  commands  and  error  messages  with 
this  call. 
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ROTATE (ANGLE) 


Rotate  incremental  vectors  and  characters  drawn  in  label  mode  by 
ANGLE  degrees. 


Argument 


Format 


Description 


ANGLE 


Real 


Angle  of  rotation  in  degrees 


Notes:  (1)  The  default  value  of  ANGLE  =  0° . 


(2)  Absolute  vectors  are  not  affected  by  ROTATE. 


SELPEN(NPEN) 

Select  a  pen  from  those  currently  in  the  pen  holder*. 


Argument 


Format 

Integer 

*11,81 


Description 

Number  of  the  pen  holder. 


SECTION  3 


SAMPLE  PROGRAMS 
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n  o 


C  HF'SAMPL 

C  PLOIIER  SAMPLE  SHOWING  ROT AT  I  ON . LABELL I NG 
C 

c 

ESTABLISH  PLOTTING  AREA  OF  APPROXIMATELY  3' 
1  * 1  0 1 6  PLOTTER  UNITS 

CALL  PLOTS (4,0. 1500. 1500.4048.5064) 

C  100  PLOTTER  UNITS  PER  INCH 
CALL  GR 1 DSZ  <  300 . 4  00 ) 

CALL  LABSIZ ( 15,20 ) 

CALL  MOVE (0.370) 

CALL  LABEL ( ' HPSAMP1 .  '  » 8  ) 

CALL  LABSIZ< 10. 10) 

00  50  1=1.10 
CALL  MOVE (150.150) 

ANGLE-  36 . *< I  -1  ) 

CALL  ROTATE (ANGLE) 

CALL  I DR AW ( 110.0. 1 ) 

NANGLE=ANGLE 

CALL  NUMBER(0.2.NANGLE. 1 ) 

50  CONTINUE 

CALL  PLOTD(O) 

STOP 

END 


HPSAMPi 


n  n  n  n  n  n  n 


C  HPSAMP2 

PLOTTER  SAMPLE  DEMONSTRATING  CIRCLES » DASHED  LINES » INCREMENTAL  MOVE 

DIMENSION  IDASH<4»2> »IDASH2<4.2> 

DATA  IDASH/1 r2r2rlt  l,2,lt2/ 

DATA  IDASH2/1 2il»2»l/ 

SET  UP  PLOT  AREA  5'  x  5‘ 

•  CALL  PLQTS<1»2»2000»2000»7080»7080) 

SET  UP  GRID  SIZE  WITH  100  PLOTTER  UNITS  PER  INCH 
CALL  GRI DSZ  <500»500) 

CALL  MOVE ( 0  >  410 ) 

CALL  LABSLT ( 60 . ) 

CALL  LABEL( 'HPSAMP2. ' >8) 

CALL  MOVE ( 450 »  250 ) 

CALL  CIRCLE ( 150  r  0 • tO. ) 

CALL  DASHL(IDASH»4»20»1) 

CALL  M0VE(460f 250) 

CALL  CIRCLEt 160,0. .0. ) 

CALL  IM0VE(-300,0» 1 ) 

CALL  DASHL( I  DASH 2  > 4» 1A»2) 

CALL  I DRAW ( 280  >  0  r 1 ) 

TERMINATE  DASHED  LINE  MODE 

CALL  DASHL ( I DASH  r  4  r -1 1 0 ) 

CALL  PLOTD ( 2 ) 

STOP 

END 


HPS4MP2 


SECTION  4 


ADDING  ROUTINES  TO  HPLOT 


The  HPLOT  library  is  a  two-layer  set  of  FORTRAN  subroutines. 

The  upper  layer  contains  those  routines  called  directly  by  the 
programmer.  The  lower  layer  contains  the  set  of  routines  called  by 
the  upper  layer  routines. 

Any  routines  added  to  the  library  should  use  the  lower  layer 
routines  to  provide  the  actual  commands  and  parameters  in  encoded 
form  to  the  HP7221T.  Appendix  E  of  Hewlett  Packard  manual  indicates 
the  command  format  to  be  used  for  each  plotter  instruction.  The 
five  format  routines  will  handle  the  encoding. 

The  named  COMMON  described  in  Appendix  B  must  be  included  if 
necessary. 

The  lower  layer  routines  are: 

PSEND  -  Send  plotter  command  and  arguments  as  ASCII  bytes 
TRANS  -  Translate  hexadecimal  code  to  ASCII 
MBA  \ 

MBP  I 

PMB  ,  The  5  different  format  types  for  command  parameters 
SBN  1 
NBN  ) 
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APPENDIX  A 


HPLOT  ROUTINES 


Routines  Called  Directly  by  User 


PAOS 


.not 
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2/16/83 


r.  HI' LOT  .F1n 

c: 

C  UTILITY  ROUTINES  ID  DRIVE  THE  HR7221T  PLOTTER 

C  THESE  ROUTINES  CALL  On  A  SET  OF  LOWER  LEVEL  FORMAT  ROUTINES  IN 
C  FORMATS . FTN,  »  A  HEX/ASCII  TRANSLATION  ROUTINE  IN  1RANS.FTN.  i 

c  and  the  i/q  routine  in  psend.ftn  . 


C  PLOTS  --  INITIALIZE  PLOTTER 

c 

SUBROUTINE  PLOTS (LUN. IERR.LOWX .LOUT .UPX  . UPT ) 

C  FSD:U/19/82 

COMMON  /HP7221/IOUNIT . I  RUN  IT , ETX 
Byte  I6YT(5) .ETX<2) 

INTEGER  UPX.UPY 
DATA  E7X/03.0/ 

C 

IOUNIT=LUN 
IRON  I T  =  I  ERR 

C  DO  THE  LOGICAL  UNIT  ASSIGNMENT 
CALL  ASSIGN(LUN. 'TT2: ' .4) 

C  START  PLOTTER 

IBYT ( 1  ) =2  7 
I  BYT  12)=  . 

1PYT ( 3  i  =  ’  v 

CALL  PSENIK IBYT >3 

C  INITIALIZE  --  RETURN  TO  DEFAULT  PLOT  CONDITIONS 
CALL  PSEND!  -  .2) 

r.  set  up  device  control : plotter  output  mode,  handshaking 

CALL  PSEND ’27.1) 

CALL  PSEND  (  '  .  M200  •  0  >  0  !  1  3 . 0  .10) 

CALL  PSEND! 27 . 1 ) 

CALL  PSEND ('.NO. 191  .7)  1  dc3  -  .off 
CALL  F' SEN  0(27.1; 

CALL  PSEND  <  '  .  I  1  60  i  Oi  1  7  1  '  .  1 1  )  ’del  --  ;;or,!160  Late  buffer  tr’.saei 
C  SET  UP  FOR  DEBUG  DEVICE  TO  BE  ATTACHED 
CCCC  CALL  PSEND (27.1) 

CCCC  CALL  PSENIK  '  .e;  1  :  '  ,5)  1  wi  1  1  work  if  baud r a te -•  1  20C 
C  SE1  FEN  TO  1 

CALL  PSEND( 'vA ' . 2) 

C  SET  GRAPHIC  LIMITS 

CALL  PSENIK  "U  '  ,  2  ) 

C  SET  LOUX  0  IF  DEFAULT  LIMITS  ARE  TO  BE  USED 
IF ( LOUX . LT . 0 )  GOTO  10 
CALL  MBP( LOUX. LOUT, NBYTCS. IBYT! 

CALL  FSENIK  IBYT , MBYTES) 

CALL  M8PIUPX.UPT.N8YTES.I6YT) 

CALL  PSENIK  IBYT .NBYTES) 

10  CALL  PSENIK  '  >'  .  1  ) 

C  SET  ALTERNATE  FONT  TO  15.  THE  GRAPHIC  CHARACTER  SET 
CALL  FONT (0 .5. 1 ) 

RETURN 

END 

C  MOVE  --  MOVE  TO  X.Y  WITH  PEN  UP 
SUBROUTINE  MOVE(IX.IY) 

C  F  S  D  9  /  2  0  /  8  2 
C 

BYTE  I  BY  T ( 6 ) 

C 

IBYT ( 1 )~ ' A ' 

CALL  MBP ( IX . IY .NBYTES. IBYT ( 2) ) 
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CALL  F SEND.  1 HY  I  >NBt TEST  1  > 
call  PSE NIK  >  '  .  1  ) 

Kt  I  UK N 
F  ND 

r  draw  --  move  to  />y  uith  -ln  down 

SUBROUT  INE  CRAW. 

i.  fsdiv/oo/s:1 

L 


l  b  r  i  <  l )  -  u 

(  ALL  MBF  . IX . I Y .NBYTES, IBYT ( 2  )  < 
l, ALL  FSENDl  IBYT  .NBT  IE5+1  ■ 

CALL  FSENDT  '  >  •  .  1  > 

RE  turn 
t  Nil 

C  F  LOT  [I  --  FLO T  lb  LiONE 

SUBROUTINE  F'lOTDUADVt 
C.  isIU  9/22/32 

l  I  ABU  0  CUTTER  DISABLED,  NO  PAGE  ADVANCE 
1.  1  CUTTER  DISABLED,  LULL  P  AGE  ADVANCE 

f,  2  CUTTER  DISFBLED.  HALF  PAGE  ADVANCE 

L  3  CUTTER  ENABLED,  FULL  PAGE  ADVANCE 

C  4  CUT  1 E R  ENABLED,  HALF  PAGE  ADVANCE 

L 

COMMON  /HP7221/LUN, IERR.ETX 
BiTE  I  b  Y  T  l  3  >  .  K  T  X  (  2  > 


r:  PUT  FEN  BACK  IN  STALL 
CALL  SELF  EN  ^  0 ) 

I.  ADVANCE  AND  CUT  F'AFER 


}  0 

IF  ( I A D V -  I >20,11. 
IF(  IADV-J)12,13, 

10 

14 

1 1 

CALL  PSEND (•*)*+ 

'  »  4  ; 

\2 

GOTO  20 

CALL  PSEND ( '*>*- 

'  »  4  > 

13 

GOTO  20 

CALL  F'SE  ND  i  '  M  t  "  + 

» 4  ;• 

1  4 

GOTO  20 

CALL  PSEND <  '*  (  *  - 

•  .  4  > 

C  TURN 

?0 

PLOTTER  OFF 

IBYT ( 1 >  :27 

IBYI (2>= ’ . ' 

IBYT (3>  =  '  I ' 

CALL  PSENDT IBT  T , 

3  ) 

C  CLOSE  LOGICAL  UNIT  LUN 
CLOSE(UNIT-LUN) 

RETURN 

END 

C  SELFEN  --  SELECT  PEN 

SUBROUTINE  SEL PEN ( NF EN ) 

C  FSD 19/20/82 

C 

BYTE  I  BY  T  <  3  ) 

C 

I  BY  T ( 1 >  =  ' v  ' 

CALL  SBNiNPEN,  IBYK2)  ■ 

I  BYT ( 3 ) - ' > ' 

CALL  PSEND  < I  BY  T , 3 ) 

RETURN 

END 

C  LABEL  --  LABEL  MODE  ON  AND  PLOT  GIVEN  CHARACTER  STRING 
SUBROUTINE  LABELtSTRING.N, 

C 

C  FSDi9/23/&? 
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C  INPUT  IS  I  HE  CHARACTER  STRING  n  US  T  HE  COUNT  Of  c  MAR  AC  f  t  RS  <  N  , 

C  THE  COUNT  WILL  BE  I  GNORLD  U  1  Ml  lEKMlNAlOR  APPlAKl,  In  I  HI  SIRIN' 
C  \  HE  TERMINATOR  IS  THE  fc  T  X  ^  .5  >  CHARACTER  BY  DF  f  AUl  T  .  TU  i  HANOI  i  Hi 
C  TERMINATOR*  USE  THE  SUBROUTINE  l  ARE  NR  . 

O 

COMMON  /HP  7221/LUNr  I  ERR • L Tx 
BYTE.  LB<2>  #STKlNl>v  1  ;  *ETX<2> 

C 

LEU  1  )  -  *  *  * 

1.6(2)  -39 

CALL  PSEND  ( LB  *  2  ) 

I»0  5  I  *  1  >  N 

IF (STRINGl I > .  EG . ET  X  < 1 t >  GOTO  10 
5  CONTINUE 

CALL  PSEND(STRlNGtN) 

CALL  PSEND <  L  T  X  1 1  > . 1 ) 

RETURN 

10  CALL  PSEND (STRING* l ' 

RETURN 

END 

C  LABENR  —  SET  STRING  TERMINATOR  FOR  LABELS 
SUBROUTINE  L ABEND ( L T E RM ) 

C  PSD l 9/22/82 
C 

C  INPUT  IS  THE  DESIRED  TERMINATOR  f  OR  SUBSEQUENT  STRINGS 
C 

COMMON  /HP 7221/LUNt IERR.E1X 
BYTE  LB<2)  »  E  T  X  <  2 
C 

c  notes: 

C  (1)  THE  ETX  CHARACTER  IS  THE  DEFAULT  STRING  TERMINATOR 
C  ( 2  >  ETX<1)  CONTAINS  TERMINATOR  IN  ASCII.  A  DUMMY  POSITION  IS 
C  SAVED  IN  ETX  TO  RETAIN  UORD  BOUNDARIES  IN  COMMON. 

C  (3)  THE  STRING  TERMINATOR  IS  SENT  TO  PLOTTER.  CHOOSE  NON-PRINTING 
C  CHARACTERS  TO  AVOID  VISIBLE  PRINT  OF  TERMINATOR1' 

C 

ETX(1)=LTERM 
CALL  PSEND ( ' ' . 2> 

CALL  MBN<LTERM»NBYTES*LB ) 

CALL  PSENLKLBrNBYTES  • 

RETURN 

END 

C  LABSLT  --  LABEL  SLANT  ANGLE 

SUBROUTINE  LABSLT  <  SL AN  T  ) 

C  FSDJ9/22/B? 
i; 

C  INPUT  IS  THE  LABEL  SLANT  ANGLE  IN  DEGREES 
C  DEFAULT  SLANT  ANGLE  IS  90  DEGREES 

C  ANGLES  180  ARE  TREATED  AS  1  HO  DEGREES  LESS  THAN  GIVEN  VALUE 

L 

BYTE  L  B ( 3 ) 

c 

CALL  PSEND ( ' "/  • 2 > 

CALL  MBA! SLANT pNBYTES.LH ; 

CALL  PSEND(LB»NBYTES> 

RETURN 

END 

C  IDRAM  -  INCREMENTAL  DRAW 

SUBROUTINE  I  DRAW < I Dl L X  *  1  DEL Y * N > 

L  E  S  D  :  9  /  ?  2  /  8 

c 

COMMON  /HP  '221 /L UN » I  ERR * EXT 

byte  ext  <  ?> » iby if  s( a > 

DIMENSION  I  DEL  X \ l >  *  1  DEL  Y ( 1  > 


4(» 


(..ALL  F'SENIK  s  ,  1  i 
L>0  SO  I  =  1  .N 

(  ALL  F'MBi  1DELX(  I  >  » IDELY-.  I  :•  .NBYTES.  IBYIES) 

CALL  F'SENIKIBYTEb. NBYTES) 

SO  CONTINUE 

CALL  F'SENDi  t  .1) 

RE I  URN 
I  NL> 

C  IMOVE  --  INCREMENTAL  MOVE  A NO  I HEN  DRAW 
SUBROUTINE  IMOVE  < IDE LX • IDEL*  >N 
C  FSU:»/22/b2 
C 

CUMMON  /HP7221/LUN.  IERR.EXT 
BYTE  LX  I  <  2)  ,  IBYTESl  t>  i 
DIMENSION  IDELXI I ) . IDELY ( 1 ) 

C 

CALL  F'SENIK  r  "  .  1  ) 

DO  SO  I-l.N 

CALL  PMB<  IDELX ( I ) , I  DEL  Y ( I ) , NBYTES* I BYTES ) 

CALL  F'SENIK  IBYTES. NBYTES) 

SO  CONTINUE 

CALL  PSEND  (  >  '  .  1  ) 

RETURN 

END 

C  GRIDSZ  -SET  GRID  SIZE 

SUBROUTINE  OR IDSZ1 I XMAX , I YMAX ) 

C  FSDI  V/ 23/82 
C 

C  SET  GRID  SIZE  IN  PLOTTER  UNITS 
BYTE  NF'(S> 
l. 

CALL  F'SENLK  ''S'  .  2  ) 

CALI  MbF'(  IXMAX*  IYMAXiNBYTES*NF*> 

CALL  FSENIKNP.NBrTES) 

CALL  F'SENIK  ’Ft!) 

RETURN 

END 

r  DASHL  --  DRAU  FIXED  OR  OAR l ABLE  DASHED  LINES 

SUBROUT  INF  DASHL  l I D ASH . NE LE . LF A T RN . IF  IX ) 
i;  FSDI  9/30/82 

c 

r,  REUISED  4/1/83 

C 

c 

c  inputs: 

C  IDASH  -  TWO-DIMENSIONAL  ARRAY  CONTAINING  DASH/SF'ACE  F'ATTERN. 

C  WHERE  THE  NUMBER  OF  UNITS  FOR  THE.  JTH  ELEMENT  IS  IN  IDASH1J.1; 

C  AND  I  DASH ( J  *  2 )  =  1 - DASH 

C  2  SPACE 

C  ** NOTE  THAT  THE  NUMBER  OF  UNITS  IS  REL AT  I VE ( FROM  0  TO  31) 

C  NELE  =  NUMBER  OF  ELEMENTS  IN  THE  PATTERN  (MAXIMUM  J  IN  1  DASH ) 

C  LF'ATRN  =  PATTERN  LENGTH  (I.  E..  REPEAT  CYCLE)  IN  PLOTTER  UNITS 

C  IF  LPATRN-:  0  DASH  MODE  IS  TERMINATED 

C  IF  I X  =  1  FIXED  DASH  LINE 

C  2  — >  VARIABLE  DASH  LINE 

C  NOTES! 

C  (1)  A  DASH  WITH  LENGTH  0  IS  A  DOT  IN  THE  PATTERN 
C  (2)  A  MAXIMUM  OF  8  DASHES  AND  8  SPACES  ALLOWED  IN  ANY  PATTERN 
C  <  3 )  DASH  MODE  IS  IN  EFFECT  UNTIL  SPECIFICALLY  TERMJNATED  BY  A 
C  CALL  TO  DASHL  WITH  LPATRNO 

C 

DIMENSION  I  DASH ( NELE • 2 ) 

BYTE  CMD(2> . IBYTC 16) 

DATA  CMD/'O' . 'R'/ 

C 

CALL  PSEND ( 
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r 


i  ►  -  l  r  l  A  '  t  ’i  o  *  /  l  /  t>  a 

IFUFIX.LT. 1  .Ok.  IFIX.iiT  .  2  >  I  F  -  1 
CALL  P5£ND<  CMO  <  IF  )  »  1) 

IF t LPATKN.LT .0)  GOTO  JO 

NSP  ^0 

NOA-O 

f»£)  10  NUrNELE 
1 F  U  ti  ASH  <  N »  2  >  .  E  U  .  2  )  GO  TO  L» 

C  IF  A  DASH  THEN  USE  HOD IF  I ED  SDN  FORMAT  i ADD  42 ) 
I ARG= I  DASH  <  N  *  1 >♦  S3 
NDA^NDAF 1 

IF (NDA.GT .8)  SI  Of  V 
GOTO  10 

5  NSP -NSP +1 

IF ( NSP • GT • 8 )  STOP  V 
I ARG- IDASH (N» 1 > 

10  CALL  SBNUAR6.  IBYT<N)  i 

CALL  PSENIMIBYT  ,NELE  ) 

CALL  HBNiLPATRNfNBYTLS* IBYT > 

CALL  PSENtK  IBY1  .N8Y1ES > 

JO  CALL  PSEND<  '  >  »  I  / 

RETURN 

END 

C  NUMBER  --  CONVERT  INTEGER* J  0  ASCII  AND  PLOT 
SUBROUT  INF  NUMBER  v 1 X  *  I T  »NUh, INC 
C  FSD:  9/ 28/8 J 


BYTE  ASCNUM ( 6 ) 

C  MOVE  TO  IXrlY  PRIOR  TO  PLOTTING  THE  NUMBER 
C  IF  INC#0  THEN  MOVE  INCREMENTALLY.  OTHERWISE.  ABSOLUTELY. 

C 

CALL  TRANSTNUM. ASCNUM.NBY TLS> 

IF (INC.EQ.O)  GOTO  10 
CALL  IMOVE< IX. IY.  1  > 

GOTO  20 

10  CALL  MOVE \  I  X  .  I  Y  ) 

20  CALL  LABEL ( ASCNUM  >  NBY  TES  » 

RETURN 

ENP 

C  FONT  --  DEFINE  STANDARD  AND  ALTERNATE  FONTS  FOR  LABELS 
SUBROUTINE  FONK  ISTD.  IAl.T.ISEl  I 

(. 

C  OCTOBER  20 >1982! FSB 
C 

C  THIS  ROUTINES  ALLOWS  A  CHANGE  FROM  THE  DEFAULT  STANDARD  AND/OR  ALTERNATE 
C  FONTS.  IT  ALSO  DETERMINES  WHICH  OF  THE  TWO  WILL  BE  IN  EFFECT  UNLESS  CHANGED 
C  BY  A  CALL  TO  THIS  ROUTINE. 

C  TO  TEMPORARILY  CHANGE  FROM  STANDARD  TO  ALTERNATE  FONTS  WHILE  PLOTTING 
C  A  LABEL .  PROCEED  AS  FOLLOWS! 

C  TO  SELECT  THE  STANDARD  FONT  .  INSERT  THE  SD<14>  CHARACTER  IN  THE  CHARACTER 
C  STRING  PRIOR  TO  THE  CHARACTERS  TO  BE  PLOTTED. 

C  TO  SELECT  THE  ALTERNATE  FONT.  USE  THE  SI<15>  CHARACTER  IN  THE  SAME  WAY. 

C  DEFAULT  FONTS  ARE  0.0 
C 

C  I  ST  D=  STANDARD  FONT 

C  IAL!=  ALTERNATE  FONT 

C  ISEL-  SELECT  FONT  TO  BE  IN  EFFECT < 1 =  STANDARD.  2=  ALTERNATE > 

C 

C  NOTE!  GRAPHIC  FONT .5  DOES  NOT  USE  THE  AUTOMATIC  HORIZONTAL  SPACE  FEATURE 
C  FOR  THE  SPECIAL  GRAPHIC  CHARACTERS  REPRESENTED  BY  DEC.  CODES  64-79 

C 

COMMON  /HP7221/LUN.IER.ETX 
BYTE  BYT (5) » CHIU  2  > >LTX( 2 i 
BATA  CMD/15.14/ 

C 

CALL  PSEND< ' "P ' .2) 
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CALL  MDP! IStD.IALl .MBYTES. BYT) 

CALL  PSEND!BYT.NBYTES> 

CALL  PSEND! ■ ,2) 

CALL  PSEND!CMD( ISEL) . 1 > 

CALL  PSENB!ETX,1) 

RETURN 

END 

C 

C  LABSIZ  --  CHANGE  SIZE  OF  LABEL 

SUBROUTINE  L ABS I Z ( IHOR . IVER ) 

C  ESDI  10/6/82 
C 

C  EITHER  VERTICAL  OR  HORIZONTAL  SIZE  HAY  BE  ALTERED  INDEPENDENTLY 
C  DEFAULT  =  25  PLOTTER  UNITS  VERTICAL.  25  PLOTTER  UNITS  HORIZONTAL 
C  TO  RETURN  TO  DEFAULT  SIZE.  SET  IH0R<=0 
C  SIZE  REMAINS  UNTIL  EXPLICITLY  ALTERED 

C 

CALL  PSEND ( '“X‘ .2) 

IF(IHOR.LE.O)  GOTO  10 
LIN£=2(IVER 

CALL  MBP( IHOR. LINE. NBYTES. BYT) 

10  CALL  FSEND!BYT. NBYTES) 

RETURN 

END 

C  ROTATE  --  ROTATE  INCREMENTAL  VECTORS 
SUBROUTINE  ROTATE! ANGLE ) 

C  FSDI  1/4/83 

C  ROTATE  ALL  SUBSEQUENT  INCREMENTAL  VECTORS  BY  ANGLE  DEGREES 
C 

BYTE  STR ! 3 ) 

C 

C  RESTORE  ROTATION  ANGLE  TO  0 
CALL  PSEND! 'w>' .2) 

C  ROTATE  BY  ANGLE  DEGREES 
CALL  PSEND! ' u‘ .1) 

CALL  MBA!ANGLE.NBYT.STR) 

CALL  F'SEND  <  STR  .  NBYT  ) 

RETURN 

END 

C  FNMBER  —  FLOT  A  FLOATING  POINT  NUMBER 

SUBROUTINE  FNNBER!IX.IY,FNUN. ISU.NDEC > 

C  FSD:i/6/83 

C  PLOTS  A  FLOATING  POINT  NUMBER  IN  F  FORMAT ! I . E . . XXX , XX 

c  limitations: 

C  11)  NOT  USEFUL  FOR  VERY  SMALL  OR  VERY  LARGE  NUMBERS 

C 

C  IX. IY  *  POSITION  TO  MOVE  PEN  TO.  EITHER  INCREMENTAL  OR  ABSOLUTE 

C  FNUM  =  THE  FLOATING  POINT  NUMBER  TO  PLOT 

C  ISU  =  0  FOR  ABSOLUTE  MOVE  TO  IX.IYF  *0  FOR  INCREMENTAL  MOVE 

C  NDEC  =  NUMBER  OF  POSITIONS  BEYOND  THE  DECIMAL  POINT  TO  PLOT 

C  ((MAXIMUM  NDEC  =  4(( 

C  NUMBERS  ARE  ROUNDED  ACCORDING  TO  NDEC 

C 

BYTE  ASC 1 1 ! 20 ) 

C 

IF1ISW.EQ.0)  GOTO  10 
CALL  IMOVE! IX. IY. 1  ) 

GOTO  20 

10  CALL  MOVE ! I X  » I Y  ) 

20  NUM=FNUM 

IF!ND€C.GT.O>  GOTO  21 
CALL  TRANS!NUM.ASCIl.N) 

CALL  LABEL! ASCII >N4 
RETURN 


o  u 


'  1 F  *,  NULL  .  G  1  .  4  >  NDLL  4  *  Because  I  FANS  uses  a  2-t.ute  it.teoer  iruut 

IF  0U10  =  10**NDEC 
FRAC-ABSTF  NUM-NUM  >  *  I  F'OW  1  (• 

1  FRAC -FRAC 

I F(FR AC -IFRAC.LT.  .  L, )  GOIO  15 
IFRAC- IP  R AC  +  1 

IF(  IFRAC.LT  .  I  F’OW  10  >  GOTO  2  a 
NUrt-  (  1 ABSl NUM) PI  >*IS1GNC I  .NUM  > 
lFRAC^O 

2  b  CALL  TRANStNUM.ASCl  1  ,N> 

CALL  LABEL (ASCI  I >N) 

CALL  LABFL 

CALL  TRANS! IFRAC. ASCI l ,N> 

IF  IN.EQ.NDFC)  GOTO  30 
NZ -NDEC-N 
DO  «?£■  l=N,l,-l 

OB  ASCI  I ( I PN2) =ASC1 1 < I > 

DO  09  I -I. NO 

29  ASCI  I T 1 >  48 

30  CALL  LABEL  i  ASCII.  NlUC: 

RE  TURN 

END 

C  ADVANC  --  ADVANCE  FAGE 

SUBROUT  INF  ADVANulADV) 

C  ADVANC  --  ADVANCE  AND/OR  CUT  FAGE 
C  AND  GET  IIP  PLOTTER  AREA  FOR  NEXT  PLOT 

C  PSD  12/03/83 

i: 

C  IADV  -  0  CUTTER  DISABLED.  NO  PAGE  ADVANCE 
C  1  CUTTfR  DISABLED,  LULL  PAGE  ADVANi:- 

r.  2  CUTTER  DISABLED.  HALF  FAGE  ADVANCE 

3  CUIIEK  ENABLED.  FULL  PAST  ADVANC. 

4  CUTTER  ENABLED.  HALF  FAGE  ADVANCE 

COMMON  /HP7221/LUN.IERR.ETX 
DYTE  IBYT  (5  )  .ETX  < : 
i: 

C  ADVANCE  AND  CUT  PAPER 

IF  . IADV  -1)20.11,10 

10  IF  II ADV-3 ) 1 2 , 13. 1 4 

1 1  CALL  F  SENDl  ' *  >  * F  '  , 4  > 

GOTO  20 

12  CALL  F'SENIH  4  ;• 

GOTO  20 

13  CALL  F’SEND  <  *  ("F  •  ,  4  ) 

G010  20 

1  4  CALL  F-SEND<  '  -  <  ,  4 

20  RETURN 

FND 

L  CIRCLE  --  PLOT  CIRCLE  OR  ARC 

SUBROUTINE  CIRCLET  I  RAD , ANGLE  1 .ANGLE2) 

C  PSD! 9/23/82 
C  REVISED  l/JI/83  (FSD, 

C  IT  NEEDS  A  MORE  GENERAL  TECHNIQUE  OF  HANDLING  LG  RADII  STEP  SIZING**** 

C  RIGHT  NOU,  IT  ASSU.  -G  P.U.  AT  200/INCH 
C 

INTEGER*4  I  RAD 

DYTF  NR  (3)  »  NS ( 3 )  ,  I  NS  (  .' ) 

DATA  INS/  u'.'t  /.  RADN/. 0174532925/ 

L 

C  IRAD  RADIUS  IN  FLUTTER  UNUS 

C  ANGLE  1  -  SIAKI ING, ANGIE  IN  DEGREES 

C  ANGLE2  -  STOP  ANGLE  IN  DEGREES 

r.  THE  ARC  U 1 1  l  BF  PLOIIED 

r  COUNTERCLOCKWISE  DIRECTION  IF  ANGLE  1  ANGLE2 

I  CinCKWISl  DIRECTION  IF  ANGLE1  ANGLE.' 
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L  IE  ANGLE.  1  = ANGLE 2 »  A  ClKCLt  WILL  ft  DRAWN  STARTING  AT  THE  GIVEN  ANGLE 
C  THE  PLOTTER  COMMAND  MAY  BE  USED  IE  I RAD  32/68 . 

C  OTHERWISE.  AN  ALGORITHM  IS  USED  TO  PLOT  LINE  SEGMENTS. 

C 

1  =  1 

IE i ANGLE1 .61 .ANGLE2)  1-2 
IF ( IKAD.L T .0)  GOTO  50 
IFURAD.EO.O)  RETURN 
IF (IRAD.GT. 32767)  GOTO  40 

I  R  L«  =  I  R  A  D  1  •bri  routine  needs  iriteder*2  arduaent 
CALL  FSENIU  INSi I >  *  1 > 

CALL  MBN( IRD.NBYTES.NR) 

CALI  PSEND  ( NR  »  NB  Y T ES  > 

CALL  MBA(ANGLE1*NBYT  >NS) 

CALL  F’SEND  (  NS  .  NBY  1  ) 

IF < ANGLEl .E0.ANGLE2)  GOTO  30 
CALL  NBA  <  ANGLE 2  »NB YT  »  NS ) 

CALL  FSENDi NS.NBYT ) 

30  CALL  F  SEND (  ' > ' .  1  ) 

RETURN 

C  FOR  LARGE  RADII.  NEED  ALGORITHM! 

C  SINCE  FOR  LARGE  RADIUS.  GET  A  RATHER  FLAT  CURVE.  CAN  USE  A  LINE  SEGMENT 
C  ENCOMPASSING  A  MULTIPLE  OF  THE  PLOTTER  UNI1  SIZE 
40  DELTHT  =  50 . / IRAD 

IF( ANGLE  1 .NE .ANGLE2)  GOTO  41 

THETA=ANGLL1*RADN 

THE  TAN  MANGLE  IE  360.  >  *  R  A  0  N 

N  360 . $ ( RADN/ DEL THT )  +  1 

GOTO  42 

4!  IF  <  I.£Q.2)D£LTHT=“r»ELTHT 

N= (ANGLE2 -ANGLE  1 ) * < R ADN/ DEL T H T )  E  1 
I  HE  T  A=  ANGLE ItRADN 
THE  T  AN- ANGLE 2*R ADN 
4?  CTHT  =-COS(  THETA  ) 

ST  H  T =  S l N ( THETA) 

DXADD-0 . 

D  Y  A  D  D  »  0  . 

DO  45  K-l.N-1 
AKG  =  THE  I AEKHDEL  TH / 

CTHT1*C0S( ARC) 

STHT1-SIN( ARG ) 

HX  IRAD  * ( CTH  T 1-CTHT ) 

DY- lKAD*< STMT  1  STHT ) 

IEiX-DXESIGN(  .5. DX) 

1  li  Y  =  DY  E  S  l  GN ! .5  »  DY  ) 

CT  HT  =CTHT 1 
STHT  STHT 1 

DXADD -DXADDE < DX- I DX >  'keep  track  of  cumulative  errors 
IF  <  ABS <  DXADD ) • L 1  *  1 • )  GOTO  43 
1DX=IDXESIGN( 1 . .DXADD) 

DX ADD = DXADD- SIGN! 1 . .DXADD ) 

43  DYADD=DYADD+< DY-IDY / 

I F  <  ABS ( DY ADD  > . L  T , 1 . >  GOTO  44 
SGN=SIGN( 1 . . DY ADD ) 

IDY= IDY+SGN 
DY  ADD  =  D Y ADD-SGN 

44  IFIIDX.EQ.O  .AND.  IDY.EQ.O)  GOTO  45 
CALL  I  DRAW (IDX.IDY.l) 

45  CONTINUE 
CTHT1=C0S!THETAN) 

STHT1-SIN!  THETAN) 

DXd RAD*  (CTHTl -CTHT  > 

DY  = I  RAD* ( STHT 1 -STHT ) 

I DX  =  DXE  H I GN ! . 5 . DX ) 

IDY  =  DY+SIGN( . 5 » DY ) 

DXADD=DXADDE!DX-IDX> 

DYADD=DY ADD+ ( DY- IDY ) 

I DX  = I DX  t DXADDES1GN ( .5. DXADD) 

IDY=IDYE DYAD DESIGN! • 5 . DY ADD ) 

CALL  I  DRAW ( IDX. IDY. 1 ) 

RETURN 

50  STOP  CIRCLE  ERROR.  RADIUS;!).' 

END 
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Routines  Called  Internally  From  HPLOT 
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SUBROUTINE  F'SEND<  IBYT  .NBYTES) 

C  FSD:  9/82 

COMMON  /HP7221/LUN  » IERR  » ETX 
BYTE  I  BYT  < 1  ) 

DIMENSION  IOSB<2> »I0PAR<6) 

L 

I0F’AR(2)=NBYTES 
I  OPAR  <  3  >  -0 

CALL  GETADR<  IOF'AR(  1  >  » IBYT(  1 ) ) 

CALL  WTQ 1 0  < ‘000410.LUN. 1 . > IOSB  > IOPAR » IDS) 

IF (  IERR.LE.O)GOTO  80 

WRITE < IERR. 105)  NBYTES . <T BYT ( K >  . K= 1 » NBYTES ) 
WRITE ( IERR. 104)  < I BYT< K ) .K=l .NBYTES > 

80  IF(IDS.LT.O)  GOTO  90 

IF <  IOSB ( 1 ) .LT.O)  GOTO  95 
RETURN 

90  URITE( IERR. 100)  IDS 

STOP  1 

95  WRITE(IERR.lOl)  I0SB(1> 

STOP  2 
C 

100  FORMATS  PSENL 1 Q 1 0  Directive  Error'.IS) 

101  FORMAT ( '  PSEND5QIQ  Write  I/O  Error. 15) 

105  FORMAI  (15. '//' .1015) 

106  FORMAT (9X, 10A1 ) 

END 
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n  r>  n  o  r>  o  n 


C  FORMATS. FTN  2/16/83 

THESE  ROUTINES  PROVIDE  THE  ALGORITHMS  FOR  HANDLING  ALL  POSSIBLE  ARGUMENT 
TYPES  NEEDED  FOR  THE  HP7221  COMMAND  LANGUAGE. 

UPDATED  ON  3/2/83  TO  FIX  UP  ERROR  MESSAGES t STOP  STATEMENTS.  ETC. 


MBP  --  MULTIPLE  bate  PAIR  PARAMETER  FORMAT 
SUBROUTINE  MBP ( NX . NY . NB Y TES . NP j 
COMMON  /HP7221/LUN. IERR 
BYTE  NP ( 5 ) 

C 

IF(NX.LT.O  .OR.  NY.LT.O)  GOTO  5 
N  =  NX 

IF (NX.LE.NY)N=NY 
TF1N.LT .256) GOTO  10 
IF(N.LT.2048)GOTO  14 
IF (N.LT . 16384) GO TO  15 
5  WRITE  (IERR. 990)  NX. NY 

990  FORMAT ( '  MBP I  VALUE  OUT  OF  RANGE.  NX='.I8.'  »NY='»I8> 

STOP  5 

10  IF  <  N . GT . 31 )  GOTO  13 

IF ( N . GT , 3 ) GOT  0  12 
C  ONE-BYTE  FORMAT 

NP< 1 )=NY+96+4*NX 
NBY  TES  = 1 
RETURN 

C  TUO-BYTE  FORMAT 

12  NXl=NX/2 
NX2=NX-2*NX1 
NP ( 1 ) =NX 1+96 
NP(2)=NY+32*NX2 
NBYTES=2 

GOTO  24 

C  THREE-BYTE  FORMAT 

13  NX1=NX/16 
NX2~NX-164NX1 
NY2=NY/64 
NY3=NY-64*NY2 
NP ( 1 )=NXl+96 
NP(2)-NY2+4*NX2 
NP ( 3 ) =  NY3 
NBYTES- 3 

GOTO  23 

C  FOUR-BYTE  FORMAT 

14  NX1-NX/12H 
NXR=NX-128*NX1 
NX2  =  NXR/.' 

NX3=NXR-2*NX2 
NY3=NY/64 
NY4=NY- 64*NY3 
NF'<  1  )  -?6  +  NX  1 
NF(2)-NX2 
NP(3)=NY3+32*NX3 
NP ( 4 ) =NY  4 
NBYTES=4 

GOTO  22 

F.  FIVE-BYTE  FORMAT 

15  NX 1 -NX/ 1 024 
NXR-NX-1024*NXl 


t 
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NX2=  NXR/1A 
NX3-NXR  16*NX2 
NY3=NY/4094 
NYR=NY-40V6*NY 3 
NY«=NYR/64 
NY5’NYR~64*NT  4 
NfU)  -96  +  NX1 
NR  <  2  i  =n:0 
N  R ( 3 )  =NY3+4*NX3 
NP(4)=NT4 
NP(5)-NY5 
NBYTES-S 

21  IF  ( NP ( 5  >  .  L.E  .  3 1  >  NP  (  S  >  NP<5>+64 

33  IF  (NR  (  4  )  .LE. .  31  )  NR  (  4  .•  NP(4;P44 

33  IF(NP<3) .LE.31 >NP(3> =NP(3!F44 

34  IF ( NR ( 3 ) .LE . 31 ) NRI 3) =NF ( 3  >  + 4  4 
RETURN 

F  N Ii 

C  SBN  --  SINGLE  BINARY  NUMBER  FORMAT 
SUBROUTINE  SBN  (  I  ARC. »  I  BY  I 
BYTE  IBYT 

c 

IF  (IARG.LT. 0)  STOP  3 
1  BY  T  =  I ARG 

IF < IBYT.GT.31)  RETURN 
IBYT= IBYT  E44 
RETURN 
ENU 

C  MBA  --  MULTIPLE-BYTE  ANGLE  FORMAT 

SUBROUTINE  MB A ( THET A . NBY TES . NP ) 

C 

G  ESDI  9/20/82 
C 

C  INPUT  =  THETA)  AN  ANGLE  SPEC  IF  I EB  IN  DEGREES  '.REAL  NUMBER). 

C  IF  THETA  IS  NOT  IN  RANGE  CO. 360).  AN  ANGLE  IN  THIS  RANGE 

C  IS  USED. 

C 

BYTE  NF ( 3  > 

C 

ANGLE=  THETA 

1  IF ( ANGLE . GE . 0 )  GOTO  3 
ANGLE =ANGLE+ 340. 

GOTO  1 

2  IF (ANGLE* LT .340. IGOTO  3 
ANGLE- AMO D (ANGLE. 360. ) 

3  NFtn^O 

IFIANGLE.LT. 180.)  GOTO  10 
NF ( 1 >  =  fi 

ANGLE=ANGL£-180. 

10  NAMANGLE/90.  >*16384 

NAI =  NA/ 4096 
NP(  1  >=NP(  1  H-NA1+96 
NR*NA-4094*NA1 
NBYTES=1 

IF(NR.EO.O)  RETURN 

NA2=NR/64 

NA3  NR-A4*»A2 

l F ( NA3 . EO . 0 )  GOTO  20 

NBY TES  =  NBY TEST  1 

NP(3)=NA3 

IF (NA3.LE . 31 )NP(3) -NP( 3)+64 
20  NP ( 2 ) =NA2 

IF (NA2. LE.31 >NP' 2)-NP( 2) +44 
NBYTES=NBYTES+1 
RETURN 
F  Nil 
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C  MBN  --  MULUPLt-BYTE  NUMBER  FORMAT 

SUBROUTINE  MBNCIARG.NBYTES.NF) 

C  FSD:  9/20/82 

r. 

COMMON  /HF7221/LUN.IERR.FTX 
BYTE  NPC3)»FTXC2) 

c 

IFC IARG.LT. O)  GOTO  10 
IFUARG.LT. 16)  GOTO  1 
IF ( IARG.LT .1024 )  GOTO  2 
GOTO  3 

10  IF< IERR.GT .0 >  UR  I T £ < I  ERR . 900 > 1 ARG 

STOP  8 

r 

C  ONE-BYTE  FORMAT 

1  NBYTES-1 

NP  < 1 )  = I ARGF96 
RETURN 

C  TWO-BYTE  FORMAT 

2  NBYTES-2 
NN1=I ARG/A4 
NP(2)=IARG-64*NN1 
GOTO  12 

C  THREE-BYTE  F0RMA1 

3  NBYTES  =  3 

NN  1  =  I ARG/4096 
NR-IARG-4096XNN 1 
NPC2)  'NR/64 
NP ( 3 ) =NR-64*NP 1 2 ) 

IF  CNPC3) .LE.31 )  NF  C  3) =NPC3>+64 
12  IF  CNF (2) .LE . 31)  NFC?)  -NP ( 2  >  +6  4 

NPU)=NNl  +  96 
RETURN 

900  FORMAT ( '  **»  ERROR  IN  MBN I  ARG. OUT  OF  RANGE  =  .18) 

F  n  ri 

r.  PMB  --  PAIR  OF  MULTIPLE  BYTE  NUMBERS 
SUBROUTINE  PMB ( N1 . N2 . NBYTCS r NP ) 

C  FSB  19/22/82 
L 

COMMON  /HP7221/LUN. IERR.ETX 
BYTE  ETXC2; ,NP<6! 

B IMENS I  ON  NX ( 2 ) 

r. 

C  FOLl OU  SAME  PROCEBURE  FOR  X  ANB  Y  EXCEP?  I  HAT  FLAG  CHANGES 
I  -o 
N=0 
I FL  =  64 
NX  (  1  )  --Nl 
N  X  <  2  >  =  N  2 

1  L  =L  + 1 

IF  <L-2)4.3.2 

2  NBYTES.F 
RETURN 

3  I  F  L  =  3  2 

4  IFCNX(L) . LT . 0 )  GOTO  5 

IF  CNXCL  )  .1  T  .  16)  r.OTO  11 
IF(NX(L>.LT .512)  GOTO  21 
IF  CNXCL ) .LT  . 16384  >  GOTO  31 

IF  CIERR.GT  .0;  UR  I  TE  C  1ERF: .  900  >  NXCL) 

900  FORMAT  C  '  »**  ERROR  IN  PMB1  NX  OR  NY  OUT  OF  RANGE.  .18) 

STOP  6 

r. 

5  IFCNXCL) .GE.-16)  GOTO  10 

IF  C  NXC  L  )  ,GF. . -512  )  GOTO  2C- 
IFCNXCL) .GE. -16384)  GOTO  30 

IF C IERR .GT .0)  URITEC IERR.900.  NX U 


HI  (IF  ft 

l.  ONI.  BY  If  I  NKi.M 

10  NX (Li  NX(L;F32 

11  K  -  M  t 

NMM  mx;l)  +  ifl 

(iorn  t 

L  IUU-B1IE.  FOkMiVl 

:>0  NX  (Li  NX  (L  .'FI  O.-M 

LI  NX1  NX(l.;/3.- 

NX2  N  X  (Li-32 -!<  NX- 
K  -  N  4- 1 

NP(I\)  NXJ+lFi 
K  N)  I 

NI-(Ki  NXE-llfl. 

fifjru  l 

r.  IHRLE-BYTE  FORMYil 

30  NX  (  L  )  NX  (  L  >  t  3.'  ?3<J 

31  NX  1  NX(L'.IOJ’) 

NXh  NX ( L  >  •  1  ■/.'  HUX  j 
NX2=  NXk/31 

NX 3  NXK-3.:*N.  • 

K  Ml 

rtf  (M  NX1+IR 
l\  -  M  1 

N  V  \  N  )  ■  N  X  L  M  F  : 

K  F,  (  I 

NP  i  K  i '  N.'  3-:  1 1*  i 
i.0 10  i 

1 

ENU 
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C  TRANS  --  TRANSLATE  INTEGER  INTO  PRINTABLE  CHARACTERS 
SUBROUTINE  TRANS ( INT , ASC ,NA ) 

C  FSD:9/27/82 
C 

BYTE  ASC ( 1 ) 

INTEGER*2  INT 

C  INPUT  IS  A  16  BIT  INTEGER  IN  THE  RANGE  C -32767 » +32767 3 
C  OUTPUT  IS  AN  ARRAY  OF  ASCII  BYTES  1  TO  6  ELEMENTS  IN  LENGTH 

C 

ISW^O 
K  -  0 

N  N 1  ~  I N 1 

I F ( I NT ) 1 0 »  5  » 20 
C  ARGUMENT  IS  0 
5  N  A-  1 

ASC  <  1  )=48 
RETURN 

C  ARGUMENT  IS  NEGATIVE 
10  ASC  < 1 )  =  '  -  ' 

K  “  1 

NN 1 =-NN 1 

C  ARGUMENT  IS  POSITIVE 
20  DO  25  IEXP  =  4  «  0  » - 1 

IFTEN=10**IEXP 
NN2-NN1/ IP  TEN 

I F ( NN2 • EQ • 0  .AND.  ISW.EQ.O)  GOTO  25 

K-K  +  1 

ISU--1 

ASC ( K ) =NN2+48 
NN1=NN1-NN2*IFTEN 
25  CONTINUE 

N  A  -  K 
RETURN 
END 
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APPENDIX  B 


ARGUMENTS  IN  COMMON  AREA 


All  HPLOT  routines  reference  the  named  COMMON  area  HP7221. 

The  program  statement  is: 

COMMON / HP 7  2 2 1 / LUN , I ERR , ETX 
where 

LUN  =  logical  I/O  unit  for  the  plotter 

IERR  =  logical  I/O  unit  for  error  messages  from  HPLOT  routines 
ETX  =  default  string  terminator  in  hi-order  byte,  lo-order  byte 
used  for  padding  only 


i 
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APPENDIX  C 


ERROR  MESSAGES 

1.  ERROR  MESSAGES  FROM  HPLOT 


Error  Stop  #  Originating  Routine  Cause  of  Error 


1 

2 

3 

5 

6 
8 
9 


PSEND 

PSEND 

SBN 

MBP 

PMB 

MBN 

DASHL 


CIRCLE 


QIO  Directive  Error 
QIO  Write  Error 
Argument <0 
Argument >16384  or  <0 
Argument  out  of  range 
Argument >3 2768 
Number  of  dashes  or 
spaces  in  dashed  line 
pattern  exceeds  8. 
Radius  of  circle  cannot 
be  negative. 


2.  ERROR  MESSAGES  FROM  PLOTTER  MICROPROCESSOR 

When  the  HP7221T  Error  Light  turns  on,  the  plotter  is  ready  to 
send  an  error  message  to  the  user.  To  see  this  meassage,  do  not 
turn  the  plotter  off.  Terminate  or  abort  the  run  if  still  in 
progress  and  run  ERDUMP,  the  program  listed  on  the  following  page. 

ERDUMP  returns  three  parameters  to  the  user  terminal,  as 
indicated  below: 


ITYPE  •=  Error  type  of  most  recent  error.  This 
is  an  integer  £[0,99].  See  the  HP 
manual.  Appendix  C,  for  an  explanation 
of  the  error  types. 

IBYTE  »  Instruction  code  or  parameter  which 
caused  the  error. 

NERR  -  Number  of  errors  since  PLOTS  was  called. 
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JrrtECEDIWG  PAGE  BUNK -NOT  FILMS) 


<•  ERDUMF'  --  OUTPUT  ERhOR  INFURMAIIGN  F  RUM  f  LOITER 

f,  FSDIS/O/R.l 

("; 

(, 

COMMON  /HF/221/IOUNIT  .  IRUNI  I  »ET  X 
C 

IOUNIT  1 

CALL  ASSIGN i I OUNI i » ' T  T2  J  ,4; 

CALL  PSENDC ' >  .  1  ) 

CALL  F’SENLi  (  2?  ?  1  ) 

CALL  ?SEND<  .<  >2)  !  bt»  iure  i  loiter  is  '..till  uri 

CALL  PSEND  •.  27  »  1  ) 

CALL  F’SEND  (  '  .  E  '  »  2  ) 

READ  (  IOUNIT  t  %  )  I  :  YPF. »  I  BYTE  »NERR 

TYPE  *.  'ERROR  TYPE  - '  »  1 1 >  f  ’  E  *  '  PARAMETER  1  BY  I  E > 
t  '  *  ERRORS"  '.NERI- 

STOP 


E  NO 
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